home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / hardware.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  11KB  |  65 lines
  1. 10 REM -------------------
  2. 100 REM 
  3. 110 FADE
  4. 120 CLICK
  5. 130 REM 
  6. 140 REM ----> Build the backgrounds ( 3 screens high )
  7. 150 REM 
  8. 160 ERASE
  9. 170 RESERVE
  10. 180 ERASE
  11. 190 RESERVE
  12. 20 REM 
  13. 200 EXTENSION (Index #0) (Token 0x80)
  14. 210 EXTENSION (Index #0) (Token 0x80)
  15. 220 GET PALETTE
  16. 230 ERASE
  17. 240 RESERVE
  18. 250 COPY
  19. 260 COPY
  20. 270 COPY
  21. 280 COPY
  22. 290 VARNAME
  23. 30 REM   FRS! HARDSCROLL
  24. 300 LOGIC
  25. 310 PHYSIC
  26. 320 VARNAME
  27. 330 VARNAME
  28. 340 VARNAME
  29. 350 PEN
  30. 360 CENTRE
  31. 370 LOCATE
  32. 380 CENTRE
  33. 390 REM 
  34. 40 REM        DEMO
  35. 400 REM ----> The main loop of the demo
  36. 410 REM 
  37. 420 REPEAT
  38. 430 REM 
  39. 440 REM                      Your routines here !
  40. 450 REM 
  41. 460 VARNAME
  42. 470 VARNAME
  43. 480 IF
  44. 490 IF
  45. 50 REM CODED BY BEN OF FRS
  46. 500 IF
  47. 510 IF
  48. 520 WAIT VBL
  49. 530 LOKE
  50. 540 LOKE
  51. 550 UNTIL
  52. 560 FADE
  53. 570 WAIT
  54. 580 CLS
  55. 590 LOKE
  56. 60 REM   USES NEARLY 0%
  57. 600 LOKE
  58. 610 PHYSIC
  59. 620 LOGIC
  60. 630 DEFAULT
  61. 640 END
  62. 70 REM   PROCESSOR TIME
  63. 80 REM 
  64. 90 REM -------------------
  65.